# (decoded with TMPL 11972) { %filename% } { Created %date% %time% by AppMaker } Unit %unitname%; Interface Uses %If MPW% {$Load ToolBox.dump} MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, {$Load} %end if% %If Think% {$ifc undefined Think_Pascal} ListManager, Rom85, {$endc} %end if% Globals, ResourceDefs, Scrolling, WindowAids, Miscellany; {----------} Procedure Open%WindName% (fName: Str255; vRefNum: integer; fRefNum: integer); Procedure Close%WindName%; Procedure MouseIn%WindName% (where: Point; modifiers: integer); Procedure TypeIn%WindName% (ch: char); Procedure Update%WindName%; Procedure Activate%WindName% (activate: boolean); Procedure Resize%WindName%; Procedure Scroll%WindName% (newValue: integer; oldValue: integer); Procedure Control%WindName% (whichControl: ControlHandle; whichPart: integer; where: Point); {----------} Implementation %If MPW% {$D+} {$R+} {$OV+} %end if% %If MPW% {$S %unitname%} %end if% {----------} Procedure Open%WindName% {(fName: Str255; vRefNum: integer; fRefNum: integer)}; var newWindow: WindowPtr; bounds: Rect; Begin newWindow := GetNewWindow (%WindName%ID, nil, WindowPtr (-1)); SetWTitle (newWindow, fName); SetPort (newWindow); SetNewInfo (newWindow); with cur^ do begin %MakeItems% fileNum := fRefNum; volNum := vRefNum; dirty := false; filename := NewString (fName); windowKind := W%WindName%; end; {with} ShowWindow (newWindow); End; {Open%WindName%} {----------} Procedure Close%WindName%; Begin with cur^ do begin %DisposeItems% DisposHandle (Handle (filename)); end; {with} DiscardInfo (curWindow); End; {Close%WindName%} {----------} Procedure MouseIn%WindName% {(where: Point; modifiers: integer)}; var bounds: Rect; Begin with cur^ do begin %MouseInItems% end; {with} End; {MouseIn%WindName%} {----------} Procedure TypeIn%WindName% {(ch: char)}; Begin with cur^ do begin if text = nil then begin SysBeep (1); end else begin TEKey (ch, text); end; end; {with} End; {TypeIn%WindName%} {----------} Procedure Update%WindName%; var bounds: Rect; Begin with cur^ do begin %UpdateItems% end; {with} End; {Update%WindName%} {----------} Procedure Activate%WindName% {(activate: boolean)}; Begin with cur^ do begin %ActivateItems% end; {with} End; {Activate%WindName%} {----------} Procedure Resize%WindName%; Begin with cur^ do begin end; {with} End; {Resize%WindName%} {----------} Procedure Scroll%WindName% {(newValue: integer; oldValue: integer)}; Begin { application-specific code to scroll window } End; {Scroll%WindName%} {----------} Procedure Control%WindName% {(whichControl: ControlHandle; whichPart: integer; where: Point)}; var bounds: Rect; Begin with cur^ do begin %ControlItems% end; {with} End; {Control%WindName%} End. {%unitname%}